home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Mail / pine3.92 / pine / osdep / writ_dir < prev   
Encoding:
Text File  |  1993-07-15  |  696 b   |  31 lines
  1. /*----------------------------------------------------------------------
  2.       Check to see if a directory exists and is writable by us
  3.  
  4.    Args: dir -- directory name
  5.  
  6.  Result:       returns 0 if it exists and is writable
  7.                        1 if it is a directory, but is not writable
  8.                        2 if it is not a directory
  9.                        3 it doesn't exist.
  10.   ----*/
  11. is_writable_dir(dir)
  12.     char *dir;
  13. {
  14.     struct stat sb;
  15.  
  16.     if(stat(dir, &sb) < 0)
  17.       /*--- It doesn't exist ---*/
  18.       return(3);
  19.  
  20.     if(!(sb.st_mode & S_IFDIR))
  21.       /*---- it's not a directory ---*/
  22.       return(2);
  23.  
  24.     if(can_access(dir, 07))
  25.       return(1);
  26.     else
  27.       return(0);
  28. }
  29.  
  30.  
  31.